home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
DOSALLOC.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
1KB
|
44 lines
;******************************************************************
;* DOSALLOC.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
MODEL TPascal
LOCALS
.DATA
EXTRN DosError :word
.CODE
PubLic DosAlloc
DosAlloc Proc Far Sz:Dword
LES SI,Sz
Mov BX,ES:[SI]
Add Bx,15
Mov Cl,4
Shr BX,CL
Mov DX,ES:[SI+2]
MOV DX,12
Shl DX,CL
Add BX,DX
Mov AH,48H
Int 21H
Pushf
Sub DX,Dx
Mov DL,BH
Mov CL,4
Shr DX,CL
Mov ES:[Si]+2,DX
Shl BX,CL
Mov ES:[SI],bX
Sub DX,DX
Popf
Jc @@Error
XCHG AX,DX
@@Error: Mov DosError,AX
SUB AX,AX
Ret
EndP
END